perm filename ZON.DAT[MUS,LCS] blob
sn#166826 filedate 1975-06-26 generic text, type T, neo UTF8
00010 RCDFLG←-1;
00100
00200 < ZON .DAT -- RANDOM NUMBER= 1
00300 PLAY;
00400 CLAR 0.000 0.110 100.000 * 2.012 1000.000 F2 0.000 F4
00500 ;PRINT(P1);< CLAR 1
00600 CLAR 0.110 0.110 133.000 * 1.385 1000.000 F1 0.000 F4
00700 ;PRINT(P1);< CLAR 2
00800 CLAR 0.220 0.110 166.000 * 0.554 1000.000 F2 0.000 F4
00900 ;PRINT(P1);< CLAR 3
01000 CLAR 0.330 0.110 199.000 * 2.000 1000.000 F2 0.000 F4
01100 ;PRINT(P1);< CLAR 4
01200 CLAR 0.440 0.110 232.000 * 1.554 1000.000 F1 0.000 F4
01300 ;PRINT(P1);< CLAR 5
01400 CLAR 0.550 0.110 265.000 * 0.991 1000.000 F1 0.000 F4
01500 ;PRINT(P1);< CLAR 6
01600 CLAR 0.660 0.110 298.000 * 1.213 1000.000 F1 0.000 F4
01700 ;PRINT(P1);< CLAR 7
01800 CLAR 0.770 0.110 331.000 * 0.865 1000.000 F1 0.000 F4
01900 ;PRINT(P1);< CLAR 8
02000 CLAR 0.880 0.110 364.000 * 0.997 1000.000 F2 0.000 F4
02100 ;PRINT(P1);< CLAR 9
02200 CLAR 0.990 0.110 397.000 * 0.940 1000.000 F2 0.000 F4
02300 ;PRINT(P1);< CLAR 10
02400 CLAR 1.100 0.110 430.000 * 0.897 1000.000 F1 0.000 F4
02500 ;PRINT(P1);< CLAR 11
02600 CLAR 1.210 0.110 463.000 * 0.961 1000.000 F2 0.000 F4
02700 ;PRINT(P1);< CLAR 12
02800 CLAR 1.320 0.110 496.000 * 1.282 1000.000 F1 0.000 F4
02900 ;PRINT(P1);< CLAR 13
03000 CLAR 1.430 0.110 529.000 * 0.875 1000.000 F1 0.000 F4
03100 ;PRINT(P1);< CLAR 14
03200 CLAR 1.540 0.110 562.000 * 1.009 1000.000 F2 0.000 F4
03300 ;PRINT(P1);< CLAR 15
03400 CLAR 1.650 0.110 595.000 * 0.989 1000.000 F2 0.000 F4
03500 ;PRINT(P1);< CLAR 16
03600 CLAR 1.760 0.110 628.000 * 0.963 1000.000 F2 0.000 F4
03700 ;PRINT(P1);< CLAR 17
03800 CLAR 1.870 0.110 661.000 * 1.041 1000.000 F2 0.000 F4
03900 ;PRINT(P1);< CLAR 18
04000 CLAR 1.980 0.110 694.000 * 0.929 1000.000 F2 0.000 F4
04100 ;PRINT(P1);< CLAR 19
04200 CLAR 2.090 0.110 727.000 * 0.911 1000.000 F2 0.000 F4
04300 ;PRINT(P1);< CLAR 20
04400 CLAR 2.200 0.110 760.000 * 0.956 1000.000 F2 0.000 F4
04500 ;PRINT(P1);< CLAR 21
04600 CLAR 2.310 0.110 793.000 * 1.120 1000.000 F1 0.000 F4
04700 ;PRINT(P1);< CLAR 22
04800 CLAR 2.420 0.110 826.000 * 1.982 1000.000 F2 0.000 F4
04900 ;PRINT(P1);< CLAR 23
05000 CLAR 2.530 0.110 859.000 * 1.083 1000.000 F1 0.000 F4
05100 ;PRINT(P1);< CLAR 24
05200 CLAR 2.640 0.110 892.000 * 1.008 1000.000 F2 0.000 F4
05300 ;PRINT(P1);< CLAR 25
05400 CLAR 2.750 0.110 925.000 * 0.916 1000.000 F1 0.000 F4
05500 ;PRINT(P1);< CLAR 26
05600 CLAR 2.860 0.110 958.000 * 1.071 1000.000 F1 0.000 F4
05700 ;PRINT(P1);< CLAR 27
05800 CLAR 2.970 0.110 991.000 * 0.999 1000.000 F2 0.000 F4
05900 ;PRINT(P1);< CLAR 28
06000 CLAR 3.080 0.110 985.600 * 1.068 1000.000 F1 0.000 F4
06100 ;PRINT(P1);< CLAR 29
06200 CLAR 3.190 0.110 965.800 * 1.923 1000.000 F2 0.000 F4
06300 ;PRINT(P1);< CLAR 30
06400 CLAR 3.300 0.110 946.000 * 0.798 1000.000 F2 0.000 F4
06500 ;PRINT(P1);< CLAR 31
06600 CLAR 3.410 0.110 926.200 * 1.714 1000.000 F2 0.000 F4
06700 ;PRINT(P1);< CLAR 32
06800 CLAR 3.520 0.110 906.400 * 0.928 1000.000 F2 0.000 F4
06900 ;PRINT(P1);< CLAR 33
07000 CLAR 3.630 0.110 886.600 * 0.936 1000.000 F1 0.000 F4
07100 ;PRINT(P1);< CLAR 34
07200 CLAR 3.740 0.110 866.800 * 0.966 1000.000 F2 0.000 F4
07300 ;PRINT(P1);< CLAR 35
07400 CLAR 3.850 0.110 847.000 * 1.525 1000.000 F2 0.000 F4
07500 ;PRINT(P1);< CLAR 36
07600 CLAR 3.960 0.110 827.200 * 1.066 1000.000 F1 0.000 F4
07700 ;PRINT(P1);< CLAR 37
07800 CLAR 4.070 0.110 807.400 * 2.109 1000.000 F2 0.000 F4
07900 ;PRINT(P1);< CLAR 38
08000 CLAR 4.180 0.110 787.600 * 1.530 1000.000 F1 0.000 F4
08100 ;PRINT(P1);< CLAR 39
08200 CLAR 4.290 0.110 767.800 * 0.992 1000.000 F2 0.000 F4
08300 ;PRINT(P1);< CLAR 40
08400 CLAR 4.400 0.110 748.000 * 1.249 1000.000 F1 0.000 F4
08500 ;PRINT(P1);< CLAR 41
08600 CLAR 4.510 0.110 728.200 * 1.024 1000.000 F1 0.000 F4
08700 ;PRINT(P1);< CLAR 42
08800 CLAR 4.620 0.110 708.400 * 1.944 1000.000 F1 0.000 F4
08900 ;PRINT(P1);< CLAR 43
09000 CLAR 4.730 0.110 688.600 * 1.055 1000.000 F1 0.000 F4
09100 ;PRINT(P1);< CLAR 44
09200 CLAR 4.840 0.110 668.800 * 2.135 1000.000 F2 0.000 F4
09300 ;PRINT(P1);< CLAR 45
09400 CLAR 4.950 0.110 649.000 * 1.539 1000.000 F1 0.000 F4
09500 ;PRINT(P1);< CLAR 46
09600 CLAR 5.060 0.110 629.200 * 0.999 1000.000 F2 0.000 F4
09700 ;PRINT(P1);< CLAR 47
09800 CLAR 5.170 0.110 609.400 * 1.023 1000.000 F2 0.000 F4
09900 ;PRINT(P1);< CLAR 48
10000 CLAR 5.280 0.110 589.600 * 1.089 1000.000 F1 0.000 F4
10100 ;PRINT(P1);< CLAR 49
10200 CLAR 5.390 0.110 569.800 * 0.980 1000.000 F2 0.000 F4
10300 ;PRINT(P1);< CLAR 50
10400 CLAR 5.500 0.110 550.000 * 1.395 1000.000 F2 0.000 F4
10500 ;PRINT(P1);< CLAR 51
10600 CLAR 5.610 0.110 530.200 * 1.023 1000.000 F2 0.000 F4
10700 ;PRINT(P1);< CLAR 52
10800 CLAR 5.720 0.110 510.400 * 0.901 1000.000 F1 0.000 F4
10900 ;PRINT(P1);< CLAR 53
11000 CLAR 5.830 0.110 490.600 * 1.028 1000.000 F2 0.000 F4
11100 ;PRINT(P1);< CLAR 54
11200 CLAR 5.940 0.110 470.800 * 1.407 1000.000 F1 0.000 F4
11300 ;PRINT(P1);< CLAR 55
11400 CLAR 6.050 0.110 451.000 * 1.978 1000.000 F2 0.000 F4
11500 ;PRINT(P1);< CLAR 56
11600 CLAR 6.160 0.110 431.200 * 0.913 1000.000 F2 0.000 F4
11700 ;PRINT(P1);< CLAR 57
11800 CLAR 6.270 0.110 411.400 * 0.661 1000.000 F2 0.000 F4
11900 ;PRINT(P1);< CLAR 58
12000 CLAR 6.380 0.110 391.600 * 1.565 1000.000 F2 0.000 F4
12100 ;PRINT(P1);< CLAR 59
12200 CLAR 6.490 0.110 371.800 * 1.047 1000.000 F2 0.000 F4
12300 ;PRINT(P1);< CLAR 60
12400 CLAR 6.600 0.110 352.000 * 1.455 1000.000 F1 0.000 F4
12500 ;PRINT(P1);< CLAR 61
12600 CLAR 6.710 0.110 332.200 * 0.544 1000.000 F2 0.000 F4
12700 ;PRINT(P1);< CLAR 62
12800 CLAR 6.820 0.110 312.400 * 2.030 1000.000 F2 0.000 F4
12900 ;PRINT(P1);< CLAR 63
13000 CLAR 6.930 0.110 292.600 * 1.665 1000.000 F2 0.000 F4
13100 ;PRINT(P1);< CLAR 64
13200 CLAR 7.040 0.110 272.800 * 1.043 1000.000 F2 0.000 F4
13300 ;PRINT(P1);< CLAR 65
13400 CLAR 7.150 0.110 253.000 * 1.421 1000.000 F1 0.000 F4
13500 ;PRINT(P1);< CLAR 66
13600 CLAR 7.260 0.110 233.200 * 2.172 1000.000 F2 0.000 F4
13700 ;PRINT(P1);< CLAR 67
13800 CLAR 7.370 0.110 213.400 * 1.309 1000.000 F1 0.000 F4
13900 ;PRINT(P1);< CLAR 68
14000 CLAR 7.480 0.110 193.600 * 0.407 1000.000 F2 0.000 F4
14100 ;PRINT(P1);< CLAR 69
14200 CLAR 7.590 0.110 173.800 * 1.337 1000.000 F1 0.000 F4
14300 ;PRINT(P1);< CLAR 70
14400 CLAR 7.700 0.110 154.000 * 0.555 1000.000 F2 0.000 F4
14500 ;PRINT(P1);< CLAR 71
14600 CLAR 7.810 0.110 134.200 * 1.958 1000.000 F2 0.000 F4
14700 ;PRINT(P1);< CLAR 72
14800 CLAR 7.920 0.110 114.400 * 1.387 1000.000 F1 0.000 F4
14900 ;PRINT(P1);< CLAR 73
15000 FINISH; < ZON .DAT